home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / tugi / chihiro.tug < prev    next >
Text File  |  1991-10-18  |  7KB  |  267 lines
  1. TUGi_macro(v1.0)
  2. sample_01()
  3. {
  4.     /**********************************/
  5.     /**  千尋さんのデータ、２５６色  **/
  6.     /**********************************/
  7.  
  8.     Screen(3);
  9.     cls(1);
  10.     paletteset();
  11.     wind_init();
  12.     wrtstr(
  13.         "      さて・・おおっ！千尋さんだぁ♪(^^;",
  14.         "      お元気ですか～？",
  15.         "      じゃなくて・・(^^;  このファイルでは、"
  16.         "      彩霞千尋さんの作品を表示します。 "
  17.         "      枚数が多いので、４部構成にしました(^^;"
  18.         "              まずは、その１です<^_^>",
  19.         "         マウスをクリックして下さい♪"
  20.     );
  21.     mousewait();
  22.     wind_close();
  23.  
  24.     wind_init();
  25.     wrtstr(
  26.         " "
  27.         "      ２５６色モードの画像データです。"
  28.         "            ２６枚あります。"
  29.         "      この画像データを表示しますか？",
  30.         " "
  31.     );
  32.     wind_close();
  33.  
  34.     Question(
  35.         Graph_View(
  36.             Q:\CHIHIRO\256MODE\MARIKO\MARIKO.TIF
  37.             Q:\CHIHIRO\256MODE\MARIKO_P\MARIKO_P.TIF
  38.             Q:\CHIHIRO\256MODE\KINUKO_P\KINUKO_P.TIF
  39.             Q:\CHIHIRO\256MODE\RICHIKO\RICHIKO.TIF
  40.             Q:\CHIHIRO\256MODE\RICHIK_P\RICHIK_P.TIF
  41.             Q:\CHIHIRO\256MODE\MASAKO\MASAKO.TIF
  42.             Q:\CHIHIRO\256MODE\MASAKO_P\MASAKO_P.TIF
  43.             Q:\CHIHIRO\256MODE\YUKO\YUKO.TIF
  44.             Q:\CHIHIRO\256MODE\YUKO_P\YUKO_P.TIF
  45.             Q:\CHIHIRO\256MODE\SYOKO_P\SYOKO_P.TIF
  46.             Q:\CHIHIRO\256MODE\CHIEKO\CHIEKO.TIF
  47.             Q:\CHIHIRO\256MODE\KATUKO\KATSUKO.TIF
  48.             Q:\CHIHIRO\256MODE\SATOKO\SATOKO.TIF
  49.             Q:\CHIHIRO\256MODE\SATOKO_P\SATOKO_P.TIF
  50.             Q:\CHIHIRO\256MODE\JINKO\JINKO.TIF
  51.             Q:\CHIHIRO\256MODE\MACHIKO\MACHIKO.TIF
  52.             Q:\CHIHIRO\256MODE\YUKIKO\YUKIKO.TIF
  53.             Q:\CHIHIRO\256MODE\NAOKO\NAOKO.TIF
  54.             Q:\CHIHIRO\256MODE\NAMIKO\NAMIKO.TIF
  55.             Q:\CHIHIRO\256MODE\MAKIKO\MAKIKO.TIF
  56.             Q:\CHIHIRO\256MODE\MAKIKO_P\MAKIKO_P.TIF
  57.             Q:\CHIHIRO\256MODE\WAKAKO\WAKAKO.TIF
  58.             Q:\CHIHIRO\256MODE\YOSHIKO\YOSHIKO.TIF
  59.             Q:\CHIHIRO\256MODE\MAYUKO\MAYUKO.TIF
  60.             Q:\CHIHIRO\256MODE\AKIKO\AKIKO.TIF
  61.             Q:\CHIHIRO\256MODE\KINUKO\KINUKO.TIF
  62.         );
  63.     );
  64.  
  65.  
  66.     /********************************/
  67.     /**  千尋さんのデータ、その他  **/
  68.     /********************************/
  69.  
  70.     Screen(3);
  71.     cls(1);
  72.     paletteset();
  73.     wind_init();
  74.     wrtstr(
  75.         " "
  76.         "          千尋さんの絵、その２です。<^_^>",
  77.         " "
  78.         "          ３２Ｋ色と１６色の画像データです。"
  79.         "                ２７枚あります。"
  80.         "          この画像データを表示しますか？",
  81.         " "
  82.     );
  83.     wind_close();
  84.  
  85.     Question(
  86.         Graph_View(
  87.             Q:\CHIHIRO\32KMODE\KEIKO_P\KEIKO_P.TIF
  88.             Q:\CHIHIRO\32KMODE\MICHIK_P\MICHIK_P.TIF
  89.             Q:\CHIHIRO\32KMODE\EMIKO\EMIKO.TIF
  90.             Q:\CHIHIRO\32KMODE\AIKO\AIKO.TIF
  91.             Q:\CHIHIRO\32KMODE\HIDEKO\HIDEKO.TIF
  92.             Q:\CHIHIRO\32KMODE\HIDEKO_P\HIDEKO_P.TIF
  93.             Q:\CHIHIRO\32KMODE\HISAKO\HISAKO.TIF
  94.             Q:\CHIHIRO\32KMODE\KEIKO\KEIKO.TIF
  95.             Q:\CHIHIRO\32KMODE\YOKO\YOKO.TIF
  96.             Q:\CHIHIRO\32KMODE\KAYOKO\KAYOKO.TIF
  97.             Q:\CHIHIRO\32KMODE\MIHOKO\MIHOKO.TIF
  98.             Q:\CHIHIRO\32KMODE\MICHIKO\MICHIKO.TIF
  99.             Q:\CHIHIRO\32KMODE\NORIKO\NORIKO.TIF
  100.             Q:\CHIHIRO\32KMODE\EMIKO_P\EMIKO_P.TIF
  101.             Q:\CHIHIRO\32KMODE\RYOKO\RYOKO.TIF
  102.             Q:\CHIHIRO\32KMODE\ATSUKO2\ATSUKO2.TIF
  103.             Q:\CHIHIRO\32KMODE\CHIZUKO\CHIZUKO.TIF
  104.             Q:\CHIHIRO\16_MODE\WAKAKO_P\WAKAKO_P.TIF
  105.             Q:\CHIHIRO\16_MODE\YUMIKO\YUMIKO.TIF
  106.             Q:\CHIHIRO\16_MODE\KUMIKO\KUMIKO.TIF
  107.             Q:\CHIHIRO\16_MODE\KUMIKO_P\KUMIKO_P.TIF
  108.             Q:\CHIHIRO\16_MODE\YUMIKO_P\YUMIKO_P.TIF
  109.             Q:\CHIHIRO\16_MODE\ATSUKO\ATSUKO.TIF
  110.             Q:\CHIHIRO\16_MODE\TAKAKO\TAKAKO.TIF
  111.             Q:\CHIHIRO\16_MODE\SHIZUK_P\SHIZUK_P.TIF
  112.             Q:\CHIHIRO\16_MODE\YURIKO\YURIKO.TIF
  113.             Q:\CHIHIRO\16_MODE\SHIZUKO\SHIZUKO.TIF
  114.         );
  115.     );
  116.  
  117.  
  118.     /**********************************/
  119.     /**  千尋さんのデータ、アニメ１  **/
  120.     /**********************************/
  121.  
  122.     Screen(3);
  123.     cls(1);
  124.     paletteset();
  125.     wind_init();
  126.     wrtstr(
  127.         "千尋さんの絵、その３です。<^_^>",
  128.         "え～っと、このデータはＴＩＦファイルの",
  129.         "連続表示によるアニメーション用の物なので、"
  130.         "ここで見るのは少々「う～む(^^;」かもしれません(^^;"
  131.         " "
  132.         "      この画像データを表示しますか？",
  133.         " "
  134.     );
  135.     wind_close();
  136.  
  137.     Question(
  138.         Graph_View(
  139.             Q:\CHIHIRO\ANIME\TOMOKO1.TIF
  140.             Q:\CHIHIRO\ANIME\TOMOKO2.TIF
  141.             Q:\CHIHIRO\ANIME\TOMOKO3.TIF
  142.             Q:\CHIHIRO\ANIME\TOMOKO4.TIF
  143.             Q:\CHIHIRO\ANIME\TOMOKO5.TIF
  144.             Q:\CHIHIRO\ANIME\TOMOKO6.TIF
  145.             Q:\CHIHIRO\ANIME\TOMOKO7.TIF
  146.             Q:\CHIHIRO\ANIME\TOMOKO8.TIF
  147.             Q:\CHIHIRO\ANIME\TOMOKO9.TIF
  148.             Q:\CHIHIRO\ANIME\TOMOKO10.TIF
  149.             Q:\CHIHIRO\ANIME\TOMOKO11.TIF
  150.             Q:\CHIHIRO\ANIME\TOMOKO12.TIF
  151.             Q:\CHIHIRO\ANIME\TOMOKO13.TIF
  152.             Q:\CHIHIRO\ANIME\TOMOKO14.TIF
  153.             Q:\CHIHIRO\ANIME\TOMOKO15.TIF
  154.             Q:\CHIHIRO\ANIME\TOMOKO16.TIF
  155.             Q:\CHIHIRO\ANIME\TOMOKO17.TIF
  156.             Q:\CHIHIRO\ANIME\TOMOKO18.TIF
  157.             Q:\CHIHIRO\ANIME\TOMOKO19.TIF
  158.             Q:\CHIHIRO\ANIME\TOMOKO20.TIF
  159.             Q:\CHIHIRO\ANIME\TOMOKO21.TIF
  160.             Q:\CHIHIRO\ANIME\TOMOKO22.TIF
  161.             Q:\CHIHIRO\ANIME\TOMOKO23.TIF
  162.             Q:\CHIHIRO\ANIME\TOMOKO24.TIF
  163.             Q:\CHIHIRO\ANIME\TOMOKO25.TIF
  164.             Q:\CHIHIRO\ANIME\TOMOKO26.TIF
  165.             Q:\CHIHIRO\ANIME\TOMOKO27.TIF
  166.             Q:\CHIHIRO\ANIME\TOMOKO28.TIF
  167.             Q:\CHIHIRO\ANIME\TOMOKO29.TIF
  168.             Q:\CHIHIRO\ANIME\TOMOKO30.TIF
  169.             Q:\CHIHIRO\ANIME\TOMOKO31.TIF
  170.             Q:\CHIHIRO\ANIME\TOMOKO32.TIF
  171.             Q:\CHIHIRO\ANIME\TOMOKO33.TIF
  172.             Q:\CHIHIRO\ANIME\TOMOKO34.TIF
  173.             Q:\CHIHIRO\ANIME\TOMOKO80.TIF
  174.         );
  175.     );
  176.  
  177.  
  178.     /**********************************/
  179.     /**  千尋さんのデータ、アニメ２  **/
  180.     /**********************************/
  181.  
  182.     Screen(3);
  183.     cls(1);
  184.     paletteset();
  185.     wind_init();
  186.     wrtstr(
  187.         "  千尋さんの絵、その４です。<^_^>",
  188.         "  これまたＴＩＦファイルのアニメーション用の",
  189.         "  データなので、「う～む(^^;」かもしれませんが、",
  190.         "  感じは掴めて頂けるのではないかと・・・(^^;",
  191.         "  専用の表示プログラムを実行するのが一番ですね(^^;"
  192.         "  この画像データを表示しますか？",
  193.         " "
  194.     );
  195.     wind_close();
  196.  
  197.     Question(
  198.         Graph_View(
  199.             Q:\CHIHIRO\ANIME2\RYOKO00.TIF
  200.             Q:\CHIHIRO\ANIME2\RYOKO01.TIF
  201.             Q:\CHIHIRO\ANIME2\RYOKO02.TIF
  202.             Q:\CHIHIRO\ANIME2\RYOKO03.TIF
  203.             Q:\CHIHIRO\ANIME2\RYOKO04.TIF
  204.             Q:\CHIHIRO\ANIME2\RYOKO05.TIF
  205.             Q:\CHIHIRO\ANIME2\RYOKO06.TIF
  206.             Q:\CHIHIRO\ANIME2\RYOKO07.TIF
  207.             Q:\CHIHIRO\ANIME2\RYOKO08.TIF
  208.             Q:\CHIHIRO\ANIME2\RYOKO08A.TIF
  209.             Q:\CHIHIRO\ANIME2\RYOKO09.TIF
  210.             Q:\CHIHIRO\ANIME2\RYOKO09A.TIF
  211.             Q:\CHIHIRO\ANIME2\RYOKO09B.TIF
  212.             Q:\CHIHIRO\ANIME2\RYOKO10.TIF
  213.             Q:\CHIHIRO\ANIME2\RYOKO10A.TIF
  214.             Q:\CHIHIRO\ANIME2\RYOKO10B.TIF
  215.             Q:\CHIHIRO\ANIME2\RYOKO11.TIF
  216.             Q:\CHIHIRO\ANIME2\RYOKO11A.TIF
  217.             Q:\CHIHIRO\ANIME2\RYOKO12.TIF
  218.             Q:\CHIHIRO\ANIME2\RYOKO12A.TIF
  219.             Q:\CHIHIRO\ANIME2\RYOKO13.TIF
  220.             Q:\CHIHIRO\ANIME2\RYOKO14.TIF
  221.             Q:\CHIHIRO\ANIME2\RYOKO14A.TIF
  222.             Q:\CHIHIRO\ANIME2\RYOKO14B.TIF
  223.             Q:\CHIHIRO\ANIME2\RYOKO14C.TIF
  224.             Q:\CHIHIRO\ANIME2\RYOKO14D.TIF
  225.             Q:\CHIHIRO\ANIME2\RYOKO14E.TIF
  226.             Q:\CHIHIRO\ANIME2\RYOKO14F.TIF
  227.             Q:\CHIHIRO\ANIME2\RYOKO14G.TIF
  228.             Q:\CHIHIRO\ANIME2\RYOKO14H.TIF
  229.             Q:\CHIHIRO\ANIME2\RYOKO14I.TIF
  230.             Q:\CHIHIRO\ANIME2\RYOKO14J.TIF
  231.             Q:\CHIHIRO\ANIME2\RYOKO15.TIF
  232.             Q:\CHIHIRO\ANIME2\RYOKO16.TIF
  233.             Q:\CHIHIRO\ANIME2\RYOKO17.TIF
  234.             Q:\CHIHIRO\ANIME2\RYOKO18.TIF
  235.             Q:\CHIHIRO\ANIME2\RYOKO19.TIF
  236.             Q:\CHIHIRO\ANIME2\RYOKO20.TIF
  237.             Q:\CHIHIRO\ANIME2\RYOKO21.TIF
  238.             Q:\CHIHIRO\ANIME2\RYOKO22.TIF
  239.             Q:\CHIHIRO\ANIME2\RYOKO23.TIF
  240.             Q:\CHIHIRO\ANIME2\RYOKO24.TIF
  241.             Q:\CHIHIRO\ANIME2\RYOKO25.TIF
  242.             Q:\CHIHIRO\ANIME2\RYOKO26.TIF
  243.             Q:\CHIHIRO\ANIME2\RYOKO27.TIF
  244.         );
  245.     );
  246.  
  247.  
  248.     /****************/
  249.     /**  お終いっ  **/
  250.     /****************/
  251.  
  252.     Screen(3);
  253.     cls(1);
  254.     paletteset();
  255.     wind_init();
  256.     wrtstr(
  257.         " ",
  258.         " ",
  259.         "   他のデータも見てみますか？"
  260.     );
  261.     wind_close();
  262.     Question(
  263.         MAIN2SB2.TUG
  264.     );
  265.     END.TUG
  266. }
  267.